include "mod_param.f90"
include "flap4rcr.f90"
include "rcr_vind.f90"

program testv1d 
    implicit none

    real :: ctt, lamf, v1d, lam1 

    call sol_ct4ff(ctt, lamf)
    print *, lamf 
    call sol_v1d(lam1, v1d)
    print *,lam1

end program testv1d